﻿Imports Ultimus.WFServer
Imports beCapitalAdicional

Partial Public Class frmGeneracionReportePrc
    Inherits System.Web.UI.Page
    Private ruta As String
    Private nombrePaso As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            nombrePaso = "Generacion 4A1"
            If Not Page.IsPostBack Then
                ' Cargar Variables Ultimus 
                Dim staskid As String = Request.Cookies("TaskId").Value
                Session("TaskId") = staskid
                Dim oTask As New Task
                oTask.InitializeFromTaskId(staskid)
                nombrePaso = "Generacion 4A1" 'oTask.strStepName

                ' Cargar fomrmulario
                Title = nombrePaso
                lblTitulo.Text = nombrePaso

                CargarReporte(nombrePaso)
                ConfigurarScripts()
            End If
        Catch ex As Exception

        End Try
    End Sub
    Private Sub ConfigurarScripts()
        ruta = HttpContext.Current.Request.Url.Scheme + "://" + HttpContext.Current.Request.Url.Authority + HttpContext.Current.Request.ApplicationPath

        btnComentario.Attributes.Add("onclick", "VerComentario('" + ruta + "');")
        btnTrazabilidad.Attributes.Add("onclick", "VerTrazabilidad('" + ruta + "');")
        imbRetornar.Attributes.Add("onclick", "VerPasoRetroceso('" + ruta + "','" + nombrePaso + "');")

    End Sub
    Private Sub CargarReporte(ByVal paso As String)
        'Dim objReporte1 As New beArchivo
        'Dim objReporte2 As New beArchivo

        'Dim lstArchivo As New List(Of beArchivo)

        'Select Case paso

        '    Case "Generacion 4A1"
        '        objReporte1.Nombre = "Reporte 4A1"
        '        objReporte1.Ruta = "www.google.com"
        '        objReporte1.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte1.Log = "--"
        '        objReporte1.EnviarSBS = True
        '        lstArchivo.Add(objReporte1)

        '    Case "Generacion Anexo 3"
        '        objReporte1.Nombre = "Reporte Anexo 3 (Modo Consulta)"
        '        objReporte1.Ruta = "www.google.com"
        '        objReporte1.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte1.Log = "--"
        '        objReporte1.EnviarSBS = False
        '        lstArchivo.Add(objReporte1)


        '    Case "Generacion Anexo 4"
        '        objReporte1.Nombre = "Reporte Anexo 4 (Modo Consulta)"
        '        objReporte1.Ruta = "www.google.com"
        '        objReporte1.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte1.Log = "--"
        '        objReporte1.EnviarSBS = False
        '        lstArchivo.Add(objReporte1)

        '    Case "Generacion 4B1"
        '        objReporte1.Nombre = "Reporte 4 B1"
        '        objReporte1.Ruta = "www.google.com"
        '        objReporte1.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte1.Log = "--"
        '        objReporte1.EnviarSBS = True
        '        lstArchivo.Add(objReporte1)

        '        objReporte2.Nombre = "Reporte 4 B1 (Modo Consulta)"
        '        objReporte2.Ruta = "www.google.com"
        '        objReporte2.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte2.Log = "--"
        '        objReporte2.EnviarSBS = False
        '        lstArchivo.Add(objReporte2)

        '    Case "Generacion 4B2"
        '        objReporte1.Nombre = "Reporte 4 B2"
        '        objReporte1.Ruta = "www.google.com"
        '        objReporte1.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte1.Log = "--"
        '        objReporte1.EnviarSBS = True
        '        lstArchivo.Add(objReporte1)

        '        objReporte2.Nombre = "Reporte 4 B2 (Modo Consulta)"
        '        objReporte2.Ruta = "www.google.com"
        '        objReporte2.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte2.Log = "--"
        '        objReporte2.EnviarSBS = False
        '        lstArchivo.Add(objReporte2)

        '    Case "Generacion 4B3"
        '        objReporte1.Nombre = "Reporte 4 B3"
        '        objReporte1.Ruta = "www.google.com"
        '        objReporte1.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte1.Log = "--"
        '        objReporte1.EnviarSBS = True
        '        lstArchivo.Add(objReporte1)

        '        objReporte2.Nombre = "Reporte 4 B3 (Modo Consulta)"
        '        objReporte2.Ruta = "www.google.com"
        '        objReporte2.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte2.Log = "--"
        '        objReporte2.EnviarSBS = False
        '        lstArchivo.Add(objReporte2)

        '    Case "Generacion 4C"
        '        objReporte1.Nombre = "Reporte 4 C"
        '        objReporte1.Ruta = "www.google.com"
        '        objReporte1.FechaGeneracion = DateValue("17/04/2012")
        '        objReporte1.Log = "--"
        '        objReporte1.EnviarSBS = True
        '        lstArchivo.Add(objReporte1)

        '    Case "Generacion 4D"
        '        objReporte1.Nombre = "Reporte 4 D (Modo Consulta)"
        '        objReporte1.Ruta = "www.google.com"
        '        objReporte1.FechaGeneracion = DateValue("18/04/2012")
        '        objReporte1.Log = "--"
        '        objReporte1.EnviarSBS = False
        '        lstArchivo.Add(objReporte1)

        '        objReporte2.Nombre = "Reporte 4 D Porcentaje de adecuación"
        '        objReporte2.Ruta = "www.google.com"
        '        objReporte2.FechaGeneracion = DateValue("18/04/2012")
        '        objReporte2.Log = "--"
        '        objReporte2.EnviarSBS = True
        '        lstArchivo.Add(objReporte2)
        'End Select

        'gvwArchivo.DataSource = lstArchivo
        'gvwArchivo.DataBind()
    End Sub

    Function DatetoString(ByVal objDate As DateTime) As String
        Dim resultado As String = ""
        If Not (objDate = DateTime.MinValue OrElse (objDate.Year = 1900 AndAlso objDate.Month = 1 AndAlso objDate.Day = 1) OrElse (objDate.Year = 1 AndAlso objDate.Month >= 1 AndAlso objDate.Day >= 1)) Then
            resultado = objDate.ToString("dd/MM/yyyy")
        End If
        Return resultado
    End Function

    Protected Sub imbEnviar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imbEnviar.Click
        Dim sUser As String = Request.Cookies("UserId").Value
        Dim staskid As String = Request.Cookies("TaskId").Value

        Dim oTask As New Task
        oTask.InitializeFromTaskId(staskid)
        Dim nIncident As Integer = 0
        Dim sError As String = ""
        oTask.Send(Nothing, Nothing, Nothing, nIncident, sError)

        ScriptManager.RegisterStartupScript(Me, Page.GetType, "Aviso", "window.close();", True)
    End Sub

End Class